home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / autox.sda / AUTO EXPENSE (.txt) next >
Commodore BASIC  |  2009-10-10  |  19KB  |  605 lines
  1. 10 REM AUTO EXPENSE - (VER 2.5):BY D. SCOTT 06/91
  2. 20 PRINT"[147]     DO YOU NEED INSTRUCTIONS? (Y/N)
  3. 30 [161]K$:[139]K$[178]""[167]30
  4. 40 [139]K$[178]"N"[167]90
  5. 50 [139]K$[178]"Y"[167]72
  6. 60 [137]30
  7. 70 [143] SEQUENTIAL FILE READER
  8. 72 [151]53281,15:[151]53272,21:[153]"LOAD":S$[178]"AUTO.INST"
  9. 74 [159]1,8,2,S$[170]",M,R":[159]4,3:[153]"LOAD"
  10. 76 [153][163]10)"HIT ANY KEY TO PAUSE":[153]"STOP"
  11. 78 [161]#1,A$:[139]ST[178]0[167][152]4,A$;:[146]198,1,1:[151]198,0:[137]78
  12. 80 [152]4:[160]1:[160]4:[153]" DONE --- PRESS ANY KEY FOR MENU"
  13. 82 [161]K$:[139]K$[178]""[167]82
  14. 90 R[178]0:[153][199](142)
  15. 92 [134]SI$(401),SD$(401),VM(401),SC(401),SP$(401),CO$(401),GF(401)
  16. 94 [150] [165]RO(X)[178][181]((X)[172]1000[170].5)[173]1000
  17. 100 [151]53280,2:[151]53281,1
  18. 102 [153]"LOAD    A U T O   E X P E N S E  STOP V2.5      WAIT";
  19. 104 [153]"                                        WAIT";
  20. 106 [153]"   AUTOMOBILE FILE: STOP"F$ "
  21. 108 PRINT" MAXIMUM RECORDS:[144] 300  NOW ON FILE:[144]" R
  22. 110 PRINT"[151]                                        [146]";
  23. 112 PRINT"[144]       1 [146] =  D [146][144]ISK DIRECTORY"
  24. 114 PRINT"       2 [146] =  L [146][144]OAD A FILE"
  25. 116 PRINT"       3 [146] =  E [146][144]NTER NEW RECORDS
  26. 118 [153]"       4 WAIT =  V WAITSTOPIEW ALL RECORDS
  27. 120 PRINT"       5 [146] =  F [146][144]IND RECORDS"
  28. 122 PRINT"       6 [146] =  C [146][144]ALCULATIONS
  29. 124 [153]"       7 WAIT =  S WAITSTOPAVE THE FILE"
  30. 126 [153]"       8 WAIT =  P WAITSTOPRINT HARD COPY
  31. 128 PRINT"       9 [146] =  Q [146][144]UIT PROGRAM
  32. 136 [153]" ENTER ^     ^
  33. 138 PRINT"  NUMBER [146] OR  LETTER [146][144] FOR OPTION";
  34. 140 GETKEY$:IFKEY$=""THEN140
  35. 142 IFKEY$="1"ORKEY$="D"THEN262
  36. 144 IFKEY$="2"ORKEY$="L"THEN202
  37. 146 IFKEY$="3"ORKEY$="E"THEN402
  38. 148 IFKEY$="4"ORKEY$="V"THEN502
  39. 149 IFKEY$="5"ORKEY$="F"THEN802
  40. 150 IFKEY$="6"ORKEY$="C"THEN1400
  41. 154 IFKEY$="7"ORKEY$="S"THEN330
  42. 156 IFKEY$="8"ORKEY$="P"THEN1002
  43. 158 IFKEY$="9"ORKEY$="Q"THEN171
  44. 160 GOTO140
  45. 170 POKE781,X:POKE782,Y:POKE783,0:SYS65520:RETURN
  46. 171 POKE53281,0
  47. 172 X=10:Y=5:GOSUB170:PRINT"[129][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][146]"
  48. 173 X=11:GOSUB170:PRINT"[221]       W A R N I N G       [221][146]"
  49. 174 X=12:GOSUB170:PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179][146]"
  50. 175 X=13:GOSUB170:PRINT"[221]                           [221][146]"
  51. 176 X=14:GOSUB170:PRINT"[221]  HAVE YOU SAVED UPDATE??  [221][146]"
  52. 177 X=15:GOSUB170:PRINT"[221]                           [221][146]"
  53. 178 X=16:GOSUB170:PRINT"[221] PRESS M TO RETURN TO MENU [221][146]"
  54. 179 X=17:GOSUB170:PRINT"[221]                           [221][146]"
  55. 180 X=18:GOSUB170:PRINT"[221]  PRESS Q TO QUIT PROGRAM  [221][146]"
  56. 181 X=19:GOSUB170:PRINT"[221]                           [221][146]"
  57. 182 X=20:GOSUB170:PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][146]"
  58. 183 X=21:GOSUB170:PRINT"                            ";
  59. 192 GOSUB675:GOSUB675
  60. 193 GETKEY$:IFKEY$=""THEN193
  61. 194 IFKEY$="M"THEN100
  62. 195 IFKEY$="Q"THENP$="BOOT":GOTO197
  63. 196 GOTO193
  64. 197 PRINT"[147]LOAD"CHR$(34)P$CHR$(34)",8"
  65. 198 PRINT"RUN":POKE198,3:POKE631,19:POKE632,13:POKE633,13
  66. 199 NEW
  67. 200 REM **** LOAD FILE ****
  68. 202 F$="":POKE53281,6:POKE53280,14:PRINT"[147]"TAB(15)"[158]LOAD FILE"
  69. 204 PRINT""TAB(10)"REMOVE PROGRAM DISK":GOSUB680
  70. 206 PRINTTAB(11)"INSERT FILE DISK"
  71. 208 PRINTTAB(12)"ENTER FILE NAME"
  72. 210 PRINTTAB(11)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145]":LI=16:TA=10:GOSUB650
  73. 212 IFB$=""THEN100
  74. 214 F$=B$
  75. 216 OPEN15,8,15:PRINT#15,"I0":OPEN1,8,2,B$
  76. 218 INPUT#15,E,E$,E1,E2
  77. 220 IFETHEN620
  78. 222 J=0:TC=0:TF=0
  79. 224 J=J+1:PRINT"";J
  80. 226 INPUT#1,SI$(J)
  81. 227 INPUT#1,SD$(J)
  82. 228 INPUT#1,VM(J)
  83. 229 INPUT#1,GF(J)
  84. 230 INPUT#1,SC(J)
  85. 231 INPUT#1,SP$(J)
  86. 232 INPUT#1,CO$(J)
  87. 234 TF=TF+GF(J)
  88. 236 TC=TC+SC(J):TC$=STR$(TC)
  89. 237 IFLEN(TC$)<3THENTC$=LEFT$(TC$,1)+"0"+RIGHT$(TC$,1)
  90. 238 TC$=LEFT$(TC$,LEN(TC$)-2)+"."+RIGHT$(TC$,2)
  91. 240 IFST=0THEN224
  92. 242 R=J
  93. 244 CLOSE1:CLOSE15
  94. 246 PRINT"[147]        ";R;"RECORDS WERE LOADED"
  95. 248 PRINT"         PRESS ANY KEY FOR MENU"
  96. 252 GETZ$:IFZ$=""THEN252
  97. 254 GOTO100
  98. 260 REM ***** VIEW DISK DIRECTORY
  99. 262 PRINT"[147][144]":OPEN1,8,0,"$":GET#1,A$,A$
  100. 264 GET#1,A$,A$:IFA$=""THEN276
  101. 266 GET#1,B$,C$
  102. 268 BL=ASC(B$+CHR$(0)):BH=ASC(C$+CHR$(0))
  103. 270 D$=MID$(STR$(BL+256*BH),2)+CHR$(32)
  104. 272 PRINTD$;:GET#1,D$:IFD$<>""THEN272
  105. 274 PRINT:GETE$:IFE$<>"Q"THEN264
  106. 276 CLOSE1:PRINT" DONE---PRESS ANY KEY"
  107. 278 GETK$:IFK$=""THEN278
  108. 280 GOTO100
  109. 300 REM **** SAVE FILE ****
  110. 330 GOSUB1500
  111. 332 POKE53281,0:PRINTTAB(15)"[147]SAVE FILE"
  112. 334 PRINT"[158] REMOVE PROGRAM DISK & INSERT DATA DISK[159]":GOSUB680
  113. 336 PRINT""TAB(12)"FILE IN USE IS:"
  114. 338 PRINT"[159]"TAB((38-LEN(F$))/2)F$
  115. 340 PRINTTAB(12)"[158]ENTER FILE NAME"
  116. 342 PRINTTAB(11)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145][145]":LI=16:TA=10:GOSUB650
  117. 344 IFB$=""THEN100
  118. 346 IFB$=F$ORF$=""THEN364
  119. 348 GOSUB675
  120. 350 PRINT"    [158]THE FILE NAME YOU ENTERED IS NOT"
  121. 352 PRINT"      THE SAME AS THE FILE IN USE!"
  122. 354 PRINT"[129]        USE NEW FILE NAME Y[146] OR N[146]"
  123. 356 GETZ$:IFZ$=""THEN356
  124. 358 IFZ$="N"THEN332
  125. 360 IFZ$="Y"THEN364
  126. 362 GOTO356
  127. 364 OPEN15,8,15:PRINT#15,"I0":OPEN1,8,2,"@0:"+B$+",S,W
  128. 366 [132]15,E,E$,E1,E2
  129. 368 [139]E[167]620
  130. 370 [153]""[166]8)"SAVING ";B$;
  131. 372 [129]J[178]1[164]R
  132. 374 [139]SI$(J)[178]"DELETE"[167]390
  133. 376 [152]1,SI$(J);[199](13);
  134. 378 [152]1,SD$(J);[199](13);
  135. 379 [152]1,VM(J);[199](13);
  136. 380 [152]1,GF(J);[199](13);
  137. 381 [152]1,SC(J);[199](13);
  138. 382 [152]1,SP$(J);[199](13);
  139. 383 [152]1,CO$(J);[199](13);
  140. 390 [130]J
  141. 392 [160]1:[160]15
  142. 394 [153][166]5)" DONE WAIT":A[178]0
  143. 396 [129]T[178]1[164]1000:[130]
  144. 398 [137]100
  145. 400 [143] **** ENTER RECORD INFORMATION ****
  146. 402 [139]R[179]400[167]408
  147. 404 [153]"LOAD     DATA BASE IS FULL"
  148. 405 [153]"      PRESS ANY KEY FOR MENU":[141]675
  149. 406 [161]KEY$:[139]KEY$[178]""[167]406
  150. 407 [137]100
  151. 408 [151]53281,0
  152. 410 [153]"LOAD ";F$" WAIT"
  153. 412 [153]" ENTER DATA WAIT   RECORD NUMBER " R[170]1
  154. 413 [153]"  FOR DO NOT USE COMMAS OR COLONS! WAIT"
  155. 414 [153]"SYS REPAIR/SERVICE/ITEM   WAITOPEN
  156. 415 PRINT"   [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145]"
  157. 416 PRINT"[158] SERVICE DATE   [146][159]  [163][163][163][163][163][163][163][163][145]"
  158. 417 PRINT"[158] MILEAGE        [146][159]  [163][163][163][163][163][163][145]"
  159. 418 PRINT"[158] GALLONS FUEL   [146][159]  [163][163][163][163][163][163][145]"
  160. 419 PRINT"[158] SERVICE COST   [146]$[159] [163][163][163][163][163][163][163][145]"
  161. 420 PRINT"[158] PROVIDER       [146][159]  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145]"
  162. 422 PRINT"[158] COMMENTS       [146][159]  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145]"
  163. 424 PRINT" ENTER SERVICE DATE AS YR/MO/DA
  164. 426 [153]" EXAMPLE: 91/04/01."
  165. 428 [153]" ENTER SERVICE COSTS WITHOUT THE
  166. 430 PRINT" DECIMAL POINT. (EG: 75.00=7500)[145][145][145][145][145][145][145]"
  167. 432 PRINT"":TA=2:LI=25:GOSUB650
  168. 434 IFB$=""THEN100
  169. 436 R=R+1:SI$(R)=B$:A=1
  170. 438 PRINT:TA=17:LI=8:GOSUB650
  171. 440 IFB$=""THENB$="-"
  172. 442 SD$(R)=B$
  173. 444 PRINT:TA=17:LI=6:GOSUB635
  174. 446 IFB$=""THENB$="-"
  175. 448 VM(R)=VAL(B$)
  176. 450 PRINT:TA=17:LI=6:GOSUB650
  177. 452 IFB$=""THENB$="-"
  178. 453 GF(R)=VAL(B$)
  179. 454 PRINT:TA=17:LI=7:GOSUB635
  180. 455 IFB$=""THENB$="-"
  181. 456 SC(R)=VAL(B$)
  182. 457 PRINT:TA=17:LI=15:GOSUB650
  183. 458 IFB$=""THENB$="-"
  184. 460 SP$(R)=B$
  185. 462 PRINT:TA=17:LI=17:GOSUB650
  186. 464 IFB$=""THENB$="-"
  187. 466 CO$(R)=B$
  188. 468 PRINT"[151]----------------------------------------";
  189. 470 PRINT"             CORRECT?....Y[146] OR N[146]"
  190. 472 PRINT"                                     "
  191. 474 PRINT"                                     "
  192. 482 GETZ$:IFZ$=""THEN482
  193. 484 IFZ$="N"THENGOSUB698:GOTO490
  194. 486 IFZ$="Y"THEN490
  195. 488 GOTO482
  196. 490 PRINT"[145][145][145]      ENTER ANOTHER ITEM? Y[146] OR N[146]"
  197. 492 GETZ$:IFZ$=""THEN492
  198. 494 IFZ$="N"THEN100
  199. 496 IFZ$="Y"THEN400
  200. 498 GOTO492
  201. 500 REM ***** VIEW RECORDS *****
  202. 502 FORJ=1TOR
  203. 504 GOSUB506:GOTO570
  204. 506 POKE53281,1:PRINT"[147][144]      VIEW FILE  ";F$" [146]"
  205. 508 PRINT"     RECORD NUMBER[144]";J
  206. 510 PRINT"REPAIR/MAINTENANCE/                     SERVICE ITEM  [144]";SI$(J)
  207. 512 PRINT"SERVICE DATE  [144]";SD$(J);" MILEAGE[144]";VM(J)
  208. 513 REM  PRINT"MILEAGE       [144]    ";VM(J)
  209. 514 PRINT"GALLONS FUEL  [144]    ";GF(J)
  210. 515 SC$=STR$(SC(J))
  211. 516 IFLEN(SC$)<3THENSC$=LEFT$(SC$,1)+"0"+RIGHT$(SC$,1)
  212. 518 SC$=LEFT$(SC$,LEN(SC$)-2)+"."+RIGHT$(SC$,2)
  213. 542 IFLEN(SC$)>7THEN552
  214. 544 IFLEN(SC$)>6THENSC$=" "+SC$:GOTO552
  215. 546 IFLEN(SC$)>5THENSC$="  "+SC$:GOTO552
  216. 548 IFLEN(SC$)>4THENSC$="   "+SC$:GOTO552
  217. 550 IFLEN(SC$)>3THENSC$="    "+SC$:GOTO552
  218. 552 PRINT"SERVICE COST    $[146][144]";SC$
  219. 554 PRINT"PROVIDER      [144]    ";SP$(J)
  220. 556 PRINT"COMMENTS      [144]    ";CO$(J)
  221. 560 PRINT"[151]----------------------------------------";
  222. 562 PRINT" PRESS <RETURN> [151][146] FOR NEXT RECORD"
  223. 564 PRINT" PRESS   <E>    [151][146] TO EDIT RECORD"
  224. 566 PRINT" PRESS   <D>    [151][146] TO DELETE RECORD"
  225. 568 PRINT" PRESS   <_>    [151][146] TO RETURN TO MENU":RETURN
  226. 570 GET KEY$:IFKEY$=""THEN570
  227. 572 IFKEY$=CHR$(13)THENNEXTJ
  228. 574 IFKEY$=CHR$(95)THEN100
  229. 576 IFKEY$="E"THENPOKE53281,0:GOSUB700:GOTO504
  230. 578 IFKEY$="D"THENGOSUB584:GOTO504
  231. 580 IFKEY$=CHR$(13)THENPRINT"   END OF FILE [146]";:FORT=1TO2000:GOTO100
  232. 582 GOTO570
  233. 584 PRINT"    [149] CONFIRM RECORD DELETE: Y OR N [146]":GOSUB675:GOSUB675
  234. 586 GETKEY$:IFKEY$=""THEN586
  235. 588 IFKEY$="Y"THEN592
  236. 590 RETURN
  237. 592 SI$(J)="DELETE"
  238. 594 RETURN
  239. 620 PRINT"",E$:CLOSE15:CLOSE1:E=0
  240. 622 PRINT"PRESS ANY KEY-MAKE CORRECTION-TRY AGAIN."
  241. 624 GOSUB675:GOSUB675
  242. 626 GETZ$:IFZ$=""THEN626
  243. 628 GOTO100
  244. 635 B$="":PRINTTAB(TA)"[158]>";
  245. 636 GETA$:IFA$=""THEN636
  246. 637 IFA$>CHR$(57)OR(A$=CHR$(20)ANDLEN(B$)<1)THENGOSUB675:GOTO636
  247. 638 IFA$=CHR$(13)THEN645
  248. 639 IFA$=CHR$(20)THENB$=LEFT$(B$,LEN(B$)-1):GOTO642
  249. 640 IFA$<CHR$(46)ORLEN(B$)>LI-1THENGOSUB675:GOTO636
  250. 641 B$=B$+A$
  251. 642 IFLEN(B$)>1THEN644
  252. 643 PRINTTAB(TA+1)
  253. 644 PRINTA$;:GOTO636
  254. 645 PRINT:RETURN
  255. 650 B$="":PRINTTAB(TA)"[158]>";
  256. 652 GETA$:IFA$=""THEN652
  257. 653 IFA$>CHR$(90)OR(A$=CHR$(20)ANDLEN(B$)<1)THENGOSUB675:GOTO652
  258. 654 IFA$=CHR$(13)THEN670
  259. 656 IFA$=CHR$(20)THENB$=LEFT$(B$,LEN(B$)-1):GOTO664
  260. 658 IFA$=CHR$(44)ORA$=CHR$(58)ORA$=CHR$(59)ORA$=CHR$(17)THENGOSUB675:GOTO652
  261. 659 IFA$=CHR$(19)ORA$=CHR$(29)THENGOSUB675:GOTO652
  262. 660 IFLEN(B$)>LI-1THENGOSUB675:GOTO652
  263. 662 B$=B$+A$
  264. 664 IFLEN(B$)>1THEN668
  265. 666 PRINTTAB(TA+1)
  266. 668 PRINTA$;:GOTO652
  267. 670 PRINT:RETURN
  268. 675 REM BUZZ
  269. 676 POKE54296,15:POKE54277,45:POKE54278,165
  270. 677 POKE54276,33:POKE54273,6:POKE54272,5
  271. 678 FORCD=1TO150:NEXT:POKE54276,16:RETURN
  272. 680 REM BELL
  273. 681 POKE54296,15:POKE54277,0:POKE54278,247
  274. 682 POKE54276,17:POKE54273,40:POKE54272,0
  275. 683 FORCD=1TO250:NEXT:POKE54276,16:RETURN
  276. 698 J=R
  277. 700 REM **** EDIT RECORDS ****
  278. 702 POKE53281,0:PRINT"[147][158]"TAB(10)" EDIT RECORD #";J
  279. 704 PRINT"[158]1 REPAIRS/SERVICE/ITEM  [146]  [159]"
  280. 705 PRINT"   ";SI$(J)
  281. 706 PRINT"[158]2 SERVICE DATE   [146]  [159]";SD$(J)
  282. 707 PRINT"[158]3 MILEAGE        [146]  [159]";VM(J)
  283. 708 PRINT"[158]4 GALLONS FUEL   [146]  [159]";GF(J)
  284. 709 PRINT"[158]5 SERVICE COST   [146]$ [159]";SC(J)
  285. 710 PRINT"[158]6 PROVIDER       [146]  [159]";SP$(J)
  286. 712 PRINT"[158]7 COMMENTS       [146]  [159]";CO$(J)
  287. 718 PRINT" EDIT WHICH LINE OR [_] TO ESCAPE ?"
  288. 720 GETY$:IFY$=""THEN720
  289. 721 IFY$=CHR$(95)THENPRINT"[147]":RETURN
  290. 722 IFY$<"1"ORY$>"7"THEN720
  291. 724 IFY$<"3"ORY$>"5"THEN726
  292. 725 PRINT"[145][129]   HIT RETURN TO INPUT A ZERO AMOUNT   [146]":GOTO727
  293. 726 PRINT"[145][129]BLANKED FIELDS, ENTER [-] IN POSITION 1[146]"
  294. 727 ONVAL(Y$)GOTO728,732,736,740,744,748,752
  295. 728 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][158]1 REPAIRS/SERVICE/ITEM [146]":TA=2:LI=25:GOSUB650
  296. 730 SI$(J)=B$:PRINT"":GOTO760
  297. 732 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][158]2 SERVICE DATE   [145][146]":TA=18:LI=8:GOSUB650
  298. 734 SD$(J)=B$:PRINT"":GOTO760
  299. 736 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][158]3 MILEAGE        [145][146]":TA=19:LI=6:GOSUB635
  300. 738 VM(J)=VAL(B$):PRINT"":GOTO760
  301. 740 PRINT"[145][145][145][145][145][145][145][145][145][145][158]4 GALLONS FUEL   [145][146]":TA=19:LI=6:GOSUB635
  302. 742 GF(J)=VAL(B$):PRINT"":GOTO760
  303. 744 PRINT"[145][145][145][145][145][145][145][145][158]5 SERVICE COST   [145][146]":TA=19:LI=7:GOSUB635
  304. 746 SC(J)=VAL(B$):PRINT"":GOTO760
  305. 748 PRINT"[145][145][145][145][145][145][158]6 PROVIDER       [145][146]":TA=18:LI=15:GOSUB650
  306. 750 SP$(J)=B$:PRINT"":GOTO760
  307. 752 PRINT"[145][145][145][145][158]7 COMMENTS       [145][146]":TA=18:LI=17:GOSUB650
  308. 754 CO$(J)=(B$)
  309. 760 A=1:PRINT"  EDIT ANOTHER LINE?  Y   OR   N       "
  310. 762 GETKEY$:IFKEY$=""THEN762
  311. 764 IFKEY$="N"THENPRINT"[147]":RETURN
  312. 766 IFKEY$="Y"THENPRINT"[145][145][145]":GOTO718
  313. 768 GOTO762
  314. 800 REM  SEARCH ROUTINE
  315. 802 X=13:Y=1:GOSUB170:PRINT"    [144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]     "
  316. 804 X=14:GOSUB170:PRINT"[144]    [221]  FIND [146][144] SPECIFIC RECORDS FOR    [144][221]"
  317. 806 X=15:GOSUB170:PRINT"    [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
  318. 808 X=16:GOSUB170:PRINT"    [221] [144] 1 [146] = ITEM/SERVICE NAME        [221]"
  319. 810 X=17:GOSUB170:PRINT"    [221]                                [221]"
  320. 812 X=18:GOSUB170:PRINT"    [221] [144] 2 [146] = PROVIDER                 [221]"
  321. 814 X=19:GOSUB170:PRINT"    [221]                                [221]"
  322. 816 X=20:GOSUB170:PRINT"    [221] [144] 3 [146] = YEAR                     [221]"
  323. 818 X=21:GOSUB170:PRINT"    [221]                                [221]"
  324. 820 X=22:GOSUB170:PRINT"    [221]  _] RETURN TO MENU             [221]"
  325. 822 X=23:GOSUB170:PRINT"    [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  326. 824 X=24:GOSUB170:PRINT"       PRESS NUMBER OR _ FOR OPTION  ";
  327. 830 GETKEY$:IFKEY$=""THEN830
  328. 832 IFKEY$="1"THEN840:REM ITEM SEARCH
  329. 834 IFKEY$="2"THEN900:REM PROVIDER SEARCH
  330. 835 IFKEY$="3"THEN860:REM YEAR SEARCH
  331. 836 IFKEY$=CHR$(95)THEN100
  332. 838 GOTO830
  333. 840 POKE53281,0:PRINT"[147] ENTER NAME TO SEARCH FOR"
  334. 841 PRINT"[158] (OR PRESS RETURN TO ESCAPE)":TA=10:LI=25:GOSUB650
  335. 842 IFB$=""THEN100
  336. 844 FORJ=1TOR
  337. 846 IFLEFT$(SI$(J),LEN(B$))=B$THENGOSUB506:GOSUB950
  338. 848 NEXTJ
  339. 850 GOTO980
  340. 860 POKE53281,0:PRINT"[147] ENTER LAST TWO DIGITS OF"
  341. 861 PRINT"       YEAR TO SEARCH FOR:"
  342. 862 PRINT"[158] (OR PRESS RETURN TO ESCAPE)":TA=10:LI=2:GOSUB650
  343. 864 IFB$=""THEN100
  344. 866 FORJ=1TOR
  345. 868 IFLEFT$(SD$(J),LEN(B$))=B$THENGOSUB506:GOSUB950
  346. 870 NEXTJ
  347. 872 GOTO980
  348. 900 POKE53281,0:PRINT"[147] ENTER PROVIDER NAME "
  349. 901 PRINT"[158] (OR PRESS RETURN TO ESCAPE)":TA=10:LI=15:GOSUB650
  350. 902 IFB$=""THEN100
  351. 904 FORJ=1TOR
  352. 906 IFLEFT$(SP$(J),LEN(B$))=B$THENGOSUB506:GOSUB950
  353. 908 NEXTJ
  354. 910 GOTO980
  355. 950 GETKEY$:IFKEY$=""THEN950
  356. 952 IFKEY$=CHR$(13)THENRETURN
  357. 954 IFKEY$=CHR$(95)THEN100
  358. 956 IFKEY$="E"THENPOKE53281,0:GOSUB700:GOSUB506:GOTO950
  359. 958 IFKEY$="D"THENGOSUB584:
  360. 962 GOTO950
  361. 980 B$="NO MATCH FOUND OR END OF FILE"
  362. 990 PRINT"[129]  ";B$" [146][145]":FORT=1TO1000:NEXT:GOSUB680:GOTO100
  363. 1000 REM ***** PRINT OUT ROUTINES *****
  364. 1002 X=11:Y=8:GOSUB170:PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  365. 1004 X=12:GOSUB170:PRINT"[221]       N O T E        [146][221]"
  366. 1006 X=13:GOSUB170:PRINT"[221]   USE TRACTOR FEED   [146][221]"
  367. 1008 X=14:GOSUB170:PRINT"[221]   CONTINUOUS PAPER   [146][221]"
  368. 1010 X=15:GOSUB170:PRINT"[221]    FOR PRINTOUTS.    [146][221]"
  369. 1012 X=16:GOSUB170:PRINT"[221]    PRESS <RETURN>    [146][221]"
  370. 1014 X=17:GOSUB170:PRINT"[221]     TO CONTINUE.     [146][221]"
  371. 1016 X=18:GOSUB170:PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  372. 1018 GOSUB675:GOSUB680
  373. 1020 GETKEY$:IFKEY$=""THEN1020
  374. 1022 IFKEY$=CHR$(13)THENGOSUB1030:GOTO1050
  375. 1026 GOTO1020
  376. 1030 TC=0:OPEN4,4:PRINT#4,CHR$(0)
  377. 1032 IFST=0THENRETURN
  378. 1033 PRINT"[147]                                   [146]":CLOSE4:GOSUB675
  379. 1034 PRINT"      WHERE IS THE PRINTER ???     [146]"
  380. 1036 PRINT"         CHECK PRINTER             [146]"
  381. 1038 PRINT"      PRESS [ + ] AND TRY AGAIN    [146]"
  382. 1040 PRINT"   PRESS [ _ ] TO ESCAPE TO MENU   [146]"
  383. 1041 PRINT"                                   [146]";
  384. 1042 GETKEY$:IFKEY$=""THEN1042
  385. 1044 IFKEY$=CHR$(43)THEN1030
  386. 1046 IFKEY$=CHR$(95)THEN100
  387. 1048 GOTO1042
  388. 1049 SEIKOSHA PRINTER RESET ROUTINE
  389. 1050 OPEN10,4,10:PRINT#10:CLOSE10:I=0
  390. 1100 X=9:Y=1:GOSUB170:PRINT"   [144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]    "
  391. 1102 X=10:GOSUB170:PRINT"   [221]  PRINT [146][144] RECORDS...           [144][221]"
  392. 1104 X=11:GOSUB170:PRINT"   [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
  393. 1106 X=12:GOSUB170:PRINT"   [221] [144] 1 [146] = ENTIRE FILE            [221]"
  394. 1108 X=13:GOSUB170:PRINT"   [221]                              [221]"
  395. 1110 X=14:GOSUB170:PRINT"   [221]       OR FOR A SPECIFIC...[144]   [221]"
  396. 1112 X=15:GOSUB170:PRINT"   [221]                              [221]"
  397. 1114 X=16:GOSUB170:PRINT"   [221] [144] 2 [146] = ITEM OR SERVICE        [221] "
  398. 1116 X=17:GOSUB170:PRINT"   [221]                              [221]"
  399. 1118 X=18:GOSUB170:PRINT"   [221] [144] 3 [146] = PROVIDER               [221]"
  400. 1120 X=19:GOSUB170:PRINT"   [221]                              [221]"
  401. 1122 X=20:GOSUB170:PRINT"   [221] [144] 4 [146] = YEAR                   [221]"
  402. 1124 X=21:GOSUB170:PRINT"   [221]                              [221]"
  403. 1126 X=22:GOSUB170:PRINT"   [221]  _] RETURN TO MENU           [221]"
  404. 1128 X=23:GOSUB170:PRINT"   [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  405. 1130 X=24:GOSUB170:PRINT"     PRESS NUMBER OR _ FOR OPTION  ";
  406. 1140 GETKEY$:IFKEY$=""THEN1140
  407. 1142 IFKEY$="1"THEN2100:ENTIRE FILE
  408. 1144 IFKEY$="2"THEN1200:ITEM
  409. 1146 IFKEY$="3"THEN1230:PROVIDER
  410. 1148 IFKEY$="4"THEN1260:YEAR
  411. 1150 IFKEY$=CHR$(95)THEN100
  412. 1152 GOTO1140
  413. 1200 POKE53281,0:PRINT"[147] ENTER ITEM/SERVICE NAME TO SEARCH FOR"
  414. 1202 PRINT"[158] (OR PRESS RETURN TO ESCAPE)":TA=10:LI=25:GOSUB650
  415. 1204 IFB$=""THEN1100
  416. 1206 PRINT" ENTER REPORT DATE (EX: 03/01/89)"
  417. 1208 INPUT"[158]          ";RD$
  418. 1210 GOSUB2182
  419. 1212 FORJ=1TOR
  420. 1224 IFLEFT$(SI$(J),LEN(B$))=B$THENGOSUB1300
  421. 1226 NEXT J
  422. 1228 GOTO1290
  423. 1230 POKE53281,0:PRINT"[147] ENTER PROVIDER NAME TO SEARCH FOR"
  424. 1232 PRINT"[158] (OR PRESS RETURN TO ESCAPE)":TA=10:LI=15:GOSUB650
  425. 1234 IFB$=""THEN1100
  426. 1236 PRINT" ENTER REPORT DATE (EX: 03/01/89)"
  427. 1238 INPUT"[158]          ";RD$
  428. 1240 GOSUB2182
  429. 1242 FORJ=1TOR
  430. 1244 IFLEFT$(SP$(J),LEN(B$))=B$THENGOSUB1300
  431. 1246 NEXT J
  432. 1248 GOTO1290
  433. 1260 POKE53281,0:PRINT"[147] ENTER  LAST TWO DIGITS [146] OF"
  434. 1262 PRINT"       YEAR TO SEARCH FOR..."
  435. 1264 PRINT"[158] (OR PRESS RETURN TO ESCAPE)":TA=10:LI=2:GOSUB650
  436. 1266 IFB$=""THEN1100
  437. 1268 PRINT" ENTER REPORT DATE (EX: 03/01/89)"
  438. 1270 INPUT"[158]          ";RD$
  439. 1272 GOSUB2182
  440. 1274 FORJ=1TOR
  441. 1276 IFLEFT$(SD$(J),LEN(B$))=B$THENGOSUB1300
  442. 1278 NEXT J
  443. 1280 GOTO1290
  444. 1290 FORX=1TO96:PRINT#4,"=";:NEXT
  445. 1292 PRINT#4,CHR$(27)"P":PRINT#4,CHR$(14)"      TOTAL COST IS $";TC/100
  446. 1294 PRINT#4,CHR$(15):CLOSE4:GOSUB680:GOTO100
  447. 1299 PRINT SELECTED ITEMS ROUTINE
  448. 1300 FOR J=1TOR:I=I+1:IFI=26THENGOSUB2180
  449. 1306 IFLEN(SC$)<3THENSC$=LEFT$(SC$,1)+"0"+RIGHT$(SC$,1)
  450. 1308 SC$=LEFT$(SC$,LEN(SC$)-2)+"."+RIGHT$(SC$,2)
  451. 1310 IFLEN(SC$)>7THEN1320
  452. 1312 IFLEN(SC$)>6THENSC$=" "+SC$:GOTO1320
  453. 1314 IFLEN(SC$)>5THENSC$="  "+SC$:GOTO1320
  454. 1316 IFLEN(SC$)>4THENSC$="   "+SC$:GOTO1320
  455. 1318 IFLEN(SC$)>3THENSC$="    "+SC$
  456. 1320 PRINT#4,SI$(J)CHR$(16)"27"SD$(J)CHR$(16)"36"VM(J)CHR$(16)"45";
  457. 1322 PRINT#4,SC$CHR$(16)"58"SP$(J)CHR$(16)"75"CO$(J)
  458. 1324 TC=TC+SC(J):TC$=STR$(TC)
  459. 1326 IFLEN(TC$)<3THENTC$=LEFT$(TC$,1)+"0"+RIGHT$(TC$,1)
  460. 1328 TC$=LEFT$(TC$,LEN(TC$)-2)+"."+RIGHT$(TC$,2)
  461. 1330 FORX=1TO96:PRINT#4,"-";:NEXTX:RETURN
  462. 1400 REM **** CALCULATIONS ****
  463. 1404 X=6:Y=1:GOSUB170:PRINT"     [144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][146]"
  464. 1406 X=7:GOSUB170:PRINT"     [221]     C A L C U L A T E     [221][146]"
  465. 1408 X=8:GOSUB170:PRINT"     [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179][146]"
  466. 1410 X=9:GOSUB170:PRINT"     [221]                           [221][146]"
  467. 1412 X=10:GOSUB170:PRINT"     [221]  BASED ON SAVED RECORDS  [144] [221][146]"
  468. 1414 X=11:GOSUB170:PRINT"     [221]                          [144] [221][146]"
  469. 1416 X=12:GOSUB170:PRINT"     [221]        O N L Y ! !       [144] [221][146]"
  470. 1418 X=13:GOSUB170:PRINT"     [221] [146]                          [221][146]"
  471. 1420 X=14:GOSUB170:PRINT"     [221] [146] T  = TOTAL COST TO DATE  [221][146]"
  472. 1422 X=15:GOSUB170:PRINT"     [221] [146]                          [221][146]"
  473. 1424 X=16:GOSUB170:PRINT"     [221] [146] C  = AVERAGE COST/MILE   [221][146]"
  474. 1426 X=17:GOSUB170:PRINT"     [221] [146]                          [221][146]"
  475. 1428 X=18:GOSUB170:PRINT"     [221] [146] F  = AVERAGE MPG (FUEL)  [221][146]"
  476. 1430 X=19:GOSUB170:PRINT"     [221] [146]                          [221][146]"
  477. 1432 X=20:GOSUB170:PRINT"     [221] [146] _  = RETURN TO MENU      [221][146]"
  478. 1434 X=21:GOSUB170:PRINT"     [221] [146]                          [221][146]"
  479. 1436 X=22:GOSUB170:PRINT"     [221]  ^                        [221][146]"
  480. 1437 X=23:GOSUB170:PRINT"     [221]  [173][195][195][ENTER FOR OPTION]    [221][146]"
  481. 1438 X=24:GOSUB170:PRINT"     [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][146]";
  482. 1440 GETKEY$:IFKEY$=""THEN1440
  483. 1442 IFKEY$="T"THEN2400
  484. 1444 IFKEY$="C"THEN2500
  485. 1446 IFKEY$="F"THEN2600
  486. 1448 IFKEY$="_"THEN100
  487. 1450 GOTO1440
  488. 1500 REM SORT ROUTINE
  489. 1501 PRINT"[147]    SORTING FILE...STANDBY"
  490. 1505 S=0:F=1:L=R
  491. 1510 FS$=SD$(INT((L+F)/2)):I=F:J=L
  492. 1520 IFSD$(I)<FS$THENI=I+1:GOTO1520
  493. 1530 IFSD$(J)>FS$THENJ=J-1:GOTO1530
  494. 1540 IFI>JTHEN1590
  495. 1550 IFI=JTHEN1570
  496. 1560 REM RECORD SWAP ROUTINE
  497. 1561 F1$=SD$(I):SD$(I)=SD$(J):SD$(J)=F1$
  498. 1562 F2$=SI$(I):SI$(I)=SI$(J):SI$(J)=F2$
  499. 1563 F3=VM(I):VM(I)=VM(J):VM(J)=F3
  500. 1564 F4=GF(I):GF(I)=GF(J):GF(J)=F4
  501. 1565 F5=SC(I):SC(I)=SC(J):SC(J)=F5
  502. 1566 F6$=SP$(I):SP$(I)=SP$(J):SP$(J)=F6$
  503. 1567 F7$=CO$(I):CO$(I)=CO$(J):CO$(J)=F7$
  504. 1570 I=I+1:J=J-1
  505. 1580 IFI<=JTHEN1520
  506. 1590 IFI>=LTHEN1610
  507. 1600 F(S)=I:L(S)=L:S=S+1
  508. 1610 L=J
  509. 1620 IFF<LTHEN1510
  510. 1630 IFS=0THENRETURN:REM GOTO SAVE ROUTINE
  511. 1640 S=S-1:F=F(S):L=L(S)
  512. 1650 GOTO1510
  513. 2100 REM ***** PRINTOUT FORMAT *****
  514. 2102 PRINT"[147] ENTER REPORT DATE (EX: 03/01/89)"
  515. 2104 INPUT"          ";RD$
  516. 2110 PRINT#4,CHR$(27)"P"
  517. 2115 PRINT#4,CHR$(14)"        A U T O   E X P E N S E    "
  518. 2120 PRINT#4,CHR$(27)"M":PRINT#4,CHR$(15)"";F$CHR$(16)"60"RD$
  519. 2125 FORX=1TO96:PRINT#4,"=";:NEXT
  520. 2130 PRINT#4,"REPAIRS/SERVICE/ITEM         DATE   MILEAGE     COST       ";
  521. 2132 PRINT#4,"PROVIDER         COMMENTS"
  522. 2134 FORX=1TO96:PRINT#4,"=";:NEXT
  523. 2138 FOR J=1TOR:I=I+1:IFI=26THENGOSUB2180
  524. 2142 SC$=STR$(SC(J))
  525. 2143 IFLEN(SC$)<3THENSC$=LEFT$(SC$,1)+"0"+RIGHT$(SC$,1)
  526. 2144 SC$=LEFT$(SC$,LEN(SC$)-2)+"."+RIGHT$(SC$,2)
  527. 2145 IFLEN(SC$)>7THEN2153
  528. 2146 IFLEN(SC$)>6THENSC$=" "+SC$:GOTO2153
  529. 2147 IFLEN(SC$)>5THENSC$="  "+SC$:GOTO2153
  530. 2148 IFLEN(SC$)>4THENSC$="   "+SC$:GOTO2153
  531. 2149 IFLEN(SC$)>3THENSC$="    "+SC$
  532. 2153 PRINT#4,SI$(J)CHR$(16)"27"SD$(J)CHR$(16)"36"VM(J)CHR$(16)"45";
  533. 2154 PRINT#4,SC$CHR$(16)"58"SP$(J)CHR$(16)"75"CO$(J)
  534. 2155 TC=TC+SC(J):TC$=STR$(TC)
  535. 2156 IFLEN(TC$)<3THENTC$=LEFT$(TC$,1)+"0"+RIGHT$(TC$,1)
  536. 2157 TC$=LEFT$(TC$,LEN(TC$)-2)+"."+RIGHT$(TC$,2)
  537. 2160 FORX=1TO96:PRINT#4,"-";:NEXTX
  538. 2165 NEXTJ
  539. 2170 FORX=1TO96:PRINT#4,"=";:NEXT
  540. 2172 PRINT#4,CHR$(27)"P":PRINT#4,CHR$(14)"  TOTAL VEHICLE COST IS $";TC/100
  541. 2175 PRINT#4,CHR$(15):CLOSE4:GOSUB680:GOTO100
  542. 2180 FOROF=1TO10:PRINT#4:NEXTOF:I=0
  543. 2182 PRINT#4,CHR$(27)"P"
  544. 2183 PRINT#4,CHR$(14)"        A U T O   E X P E N S E    "
  545. 2184 PRINT#4,CHR$(27)"M":PRINT#4,CHR$(15)"";F$CHR$(16)"60"RD$
  546. 2185 FORX=1TO96:PRINT#4,"=";:NEXT
  547. 2186 PRINT#4,"REPAIRS/SERVICE/ITEM         DATE   MILEAGE     COST       ";
  548. 2187 PRINT#4,"PROVIDER         COMMENTS"
  549. 2188 FORX=1TO96:PRINT#4,"=";:NEXT:RETURN
  550. 2400 REM **** TOTAL COST TO DATE ****
  551. 2405 X=6:Y=1:GOSUB170:PRINT"                                        "
  552. 2406 X=7:GOSUB170:PRINT"                                        "
  553. 2408 X=8:GOSUB170:PRINT"                                        "
  554. 2410 X=9:GOSUB170:PRINT"     [144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  555. 2412 X=10:GOSUB170:PRINT"     [144][221]    TOTAL COST TO DATE [146][144]    [221]"
  556. 2414 X=11:GOSUB170:PRINT"     [221]                           [221]"
  557. 2415 X=12:GOSUB170:PRINT"     [221]   (SAVED RECORDS ONLY)    [221]"
  558. 2416 X=13:GOSUB170:PRINT"     [144][221]                           [221]"
  559. 2418 X=14:GOSUB170:PRINT"     [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]  "
  560. 2420 X=15:GOSUB170:PRINT"                                  "
  561. 2422 X=16:GOSUB170:PRINT"      IS [195][195][195]> [144]$ ";TC$  "   <[195][195][195]             ";
  562. 2424 X=17:GOSUB170:PRINT"                                  "
  563. 2426 X=18:GOSUB170:PRINT"     [144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]     "
  564. 2428 X=19:GOSUB170:PRINT"     [221][156]                           [144][146][221]"
  565. 2430 X=20:GOSUB170:PRINT"     [221][156]  PRESS ANY KEY FOR MENU   [144][146][221]"
  566. 2432 X=21:GOSUB170:PRINT"     [221][156]                           [144][146][221]"
  567. 2434 X=22:GOSUB170:PRINT"     [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  568. 2436 X=23:GOSUB170:PRINT"                                     "
  569. 2438 X=24:GOSUB170:PRINT"                                     ";
  570. 2440 GETKEY$:IFKEY$=""THEN2440
  571. 2442 GOTO100
  572. 2500 PRINT"[147] COMPUTE COST/MILE [146]":SM=0:EM=0:NM=0
  573. 2502 INPUT"[144]    ENTER STARTING MILEAGE ";SM
  574. 2504 INPUT"    ENTER ENDING MILEAGE   ";EM
  575. 2506 PRINT"    ARE MILEAGES CORRECT [Y OR N]? [146]"
  576. 2508 GETKEY$:IFKEY$=""THEN2508
  577. 2510 IFKEY$="N"THEN2500
  578. 2512 IFKEY$="Y"THEN2520
  579. 2514 GOTO2508
  580. 2520 NM=EM-SM:PRINT"    NUMBER OF MILES IS...[144]";NM
  581. 2522 PRINT"    TOTAL COST IS.......[144]$";TC$
  582. 2524 MC=TC/NM:MC=INT(MC*1+.5)
  583. 2526 MC$=STR$(MC)
  584. 2528 IFLEN(MC$)<3THENMC$=LEFT$(MC$,1)+"0"+RIGHT$(MC$,1)
  585. 2530 MC$=LEFT$(MC$,LEN(MC$)-2)+"."+RIGHT$(MC$,2)
  586. 2532 PRINT"   TOTAL COST PER MILE IS...[146] $";MC$
  587. 2534 PRINT"        PRESS ANY KEY FOR MENU"
  588. 2536 GETKEY$:IFKEY$=""THEN2536
  589. 2538 GOTO100
  590. 2600 POKE53280,5: PRINT"[147] COMPUTE MILES/GALLON [146]":SM=0:EM=0:NM=0
  591. 2602 INPUT"[144]    ENTER STARTING MILEAGE ";SM
  592. 2604 INPUT"    ENTER ENDING MILEAGE   ";EM
  593. 2606 PRINT"    ARE MILEAGES CORRECT [Y OR N]? [146]"
  594. 2608 GETKEY$:IFKEY$=""THEN2608
  595. 2610 IFKEY$="N"THEN2600
  596. 2612 IFKEY$="Y"THEN2620
  597. 2614 GOTO2608
  598. 2620 NM=EM-SM:PRINT"    NUMBER OF MILES IS...[144]";NM
  599. 2624 PRINT"    GALLONS OF FUEL USED [144]";FNRO(TF)
  600. 2626 MG=NM/TF
  601. 2632 PRINT"   AVERAGE MILES/GALLON IS..[146]";FNRO(MG)
  602. 2634 PRINT"        PRESS ANY KEY FOR MENU"
  603. 2636 GETKEY$:IFKEY$=""THEN2636
  604. 2638 GOTO100
  605.